﻿Imports System.Data.SqlClient

Public Class frm_roomType

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_cancele.Click
        Me.Close()

    End Sub

    Private Sub btn_add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_add.Click
        Try
            Dim cn As New SqlConnection
            cn.ConnectionString = "SERVER = .; USER = sa; PASSWORD = 123; DATABASE = HOTELAPP;"
            cn.Open()

            MessageBox.Show("connect")




        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try

    End Sub
End Class